home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / T / THINK Power 1.0ß1 / Extensions Src / Hello World.c next >
Encoding:
C/C++ Source or Header  |  1993-08-31  |  416 b   |  24 lines  |  [TEXT/R*ch]
  1. // HelloWorld.c - Written by Stefan Arentz, August 1993
  2.  
  3. #include <THINK Power Extensions.h>
  4.  
  5. pascal void main(ExternalCallbackBlock *theCallbacks, WindowPtr theWindow) {
  6.  
  7.     char                *s = "Hello World!\r";
  8.     Handle                h;
  9.     WindowPtr            newWindow;
  10.  
  11.     newWindow = theCallbacks->NewDocument();
  12.     if (newWindow) {
  13.  
  14.         h = NewHandle(13);
  15.         BlockMove(s, *h, 13);
  16.         
  17.         (void) theCallbacks->Paste(h);
  18.         
  19.         DisposeHandle(h);
  20.  
  21.     }
  22.     
  23. }
  24.